home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / energize / ostore.el < prev    next >
Encoding:
Text File  |  1994-09-20  |  1.1 KB  |  35 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2. ;;; Adds a couple of ObjectStore commands to the Energize "Browse" menu.
  3.  
  4. (defun osbrowser-sentinel (proc msg)
  5.   (cond ((eq (process-status proc) 'exit)
  6.      (message "Osbrowser subprocess exited"))
  7.     ((eq (process-status proc) 'signal)
  8.      (message "Osbrowser subprocess killed"))))
  9.  
  10. (defun os-browser () 
  11.   (interactive)
  12.   (message "Launching osbrowser.")
  13.   (set-process-sentinel 
  14.    (start-process "os-browser" "*os-browser*" "osbrowser") 
  15.    'osbrowser-sentinel))
  16.  
  17. (defun ossd-sentinel (proc msg)
  18.   (cond ((eq (process-status proc) 'exit)
  19.      (message "OS schema designer subprocess exited"))
  20.     ((eq (process-status proc) 'signal)
  21.      (message "OS schema designer subprocess killed"))))
  22.  
  23. (defun os-schema-designer () 
  24.   (interactive)
  25.   (message "Launching ossd.")
  26.   (set-process-sentinel 
  27.    (start-process "os-schema-designer" "*os-schema-designer*" "ossd")
  28.    'osbrowser-sentinel))
  29.  
  30. (add-menu-item '("Browse") "----" nil t)
  31. (add-menu-item '("Browse") "OS Browser" 'os-browser t)
  32. (add-menu-item '("Browse") "OS Schema Designer" 'os-schema-designer t)
  33.  
  34. (provide 'ostore)
  35.